home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g11.bas < prev    next >
BASIC Source File  |  1991-10-18  |  460b  |  18 lines
  1. 100 ' G11 T.WAKAMATSU
  2. 110 CLS:PI=3.14159!:CD PLAY 3,11
  3. 120 FOR J=1 TO 3
  4. 130   READ C,B
  5. 140   FOR P=0 TO 60 STEP .5!
  6. 150     FOR I=P TO P+360 STEP 60
  7. 160       T=I/180*PI:U=(I+10)/180*PI
  8. 170       Z=COS(T*6+60)*100+140
  9. 180       S=SIN(T*6+60)*100+140
  10. 190       X=S*COS(U)+320:Y=S*SIN(U)+240
  11. 200       Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
  12. 210       C=B-C
  13. 220       LINE(X,Y)-(X1,Y1),PSET,C
  14. 230     NEXT I
  15. 240   NEXT P
  16. 250 NEXT J
  17. 260 DATA 4,9,2,5,0,0
  18.